/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_xemacs.idb / usr / freeware / lib / xemacs-20.4 / lisp / w3 / w3-widget.elc.z / w3-widget.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 14 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 6a 75 73 74 69 6e 62 |piled by| justinb|
|00000020| 40 65 62 6f 6e 79 2e 63 | 72 61 79 2e 63 6f 6d 20 |@ebony.c|ray.com |
|00000030| 6f 6e 20 4d 6f 6e 20 4d | 61 72 20 20 39 20 31 33 |on Mon M|ar  9 13|
|00000040| 3a 30 35 3a 33 39 20 31 | 39 39 38 0a 3b 3b 3b 20 |:05:39 1|998.;;; |
|00000050| 66 72 6f 6d 20 66 69 6c | 65 20 2f 68 6f 6d 65 2f |from fil|e /home/|
|00000060| 61 73 70 65 6e 30 37 2f | 6a 75 73 74 69 6e 62 2f |aspen07/|justinb/|
|00000070| 72 6f 6f 74 73 2f 66 72 | 65 65 77 61 72 65 2f 78 |roots/fr|eeware/x|
|00000080| 65 6d 61 63 73 2f 32 30 | 2e 33 2f 78 65 6d 61 63 |emacs/20|.3/xemac|
|00000090| 73 2d 32 30 2e 33 2f 6c | 69 73 70 2f 77 33 2f 77 |s-20.3/l|isp/w3/w|
|000000a0| 33 2d 77 69 64 67 65 74 | 2e 65 6c 0a 3b 3b 3b 20 |3-widget|.el.;;; |
|000000b0| 65 6d 61 63 73 20 76 65 | 72 73 69 6f 6e 20 32 30 |emacs ve|rsion 20|
|000000c0| 2e 34 20 22 45 6d 65 72 | 61 6c 64 22 20 58 45 6d |.4 "Emer|ald" XEm|
|000000d0| 61 63 73 20 20 4c 75 63 | 69 64 2e 0a 3b 3b 3b 20 |acs  Luc|id..;;; |
|000000e0| 62 79 74 65 63 6f 6d 70 | 20 76 65 72 73 69 6f 6e |bytecomp| version|
|000000f0| 20 32 2e 32 35 20 58 45 | 6d 61 63 73 3b 20 32 32 | 2.25 XE|macs; 22|
|00000100| 2d 4d 61 72 2d 39 36 2e | 0a 3b 3b 3b 20 6f 70 74 |-Mar-96.|.;;; opt|
|00000110| 69 6d 69 7a 61 74 69 6f | 6e 20 69 73 20 6f 6e 2e |imizatio|n is on.|
|00000120| 0a 3b 3b 3b 20 74 68 69 | 73 20 66 69 6c 65 20 75 |.;;; thi|s file u|
|00000130| 73 65 73 20 6f 70 63 6f | 64 65 73 20 77 68 69 63 |ses opco|des whic|
|00000140| 68 20 64 6f 20 6e 6f 74 | 20 65 78 69 73 74 20 69 |h do not| exist i|
|00000150| 6e 20 45 6d 61 63 73 20 | 31 39 2e 0a 0a 28 69 66 |n Emacs |19...(if|
|00000160| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000170| 6d 61 63 73 2d 76 65 72 | 73 69 6f 6e 29 0a 09 20 |macs-ver|sion).. |
|00000180| 28 6f 72 20 28 61 6e 64 | 20 28 62 6f 75 6e 64 70 |(or (and| (boundp|
|00000190| 20 27 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e | 'epoch:|:version|
|000001a0| 29 20 65 70 6f 63 68 3a | 3a 76 65 72 73 69 6f 6e |) epoch:|:version|
|000001b0| 29 0a 09 20 20 20 20 20 | 28 73 74 72 69 6e 67 2d |)..     |(string-|
|000001c0| 6c 65 73 73 70 20 65 6d | 61 63 73 2d 76 65 72 73 |lessp em|acs-vers|
|000001d0| 69 6f 6e 20 22 32 30 22 | 29 29 29 0a 20 20 20 20 |ion "20"|))).    |
|000001e0| 28 65 72 72 6f 72 20 22 | 60 77 33 2d 77 69 64 67 |(error "|`w3-widg|
|000001f0| 65 74 2e 65 6c 27 20 77 | 61 73 20 63 6f 6d 70 69 |et.el' w|as compi|
|00000200| 6c 65 64 20 66 6f 72 20 | 45 6d 61 63 73 20 32 30 |led for |Emacs 20|
|00000210| 22 29 29 0a 0a 28 6f 72 | 20 28 62 6f 75 6e 64 70 |"))..(or| (boundp|
|00000220| 20 27 63 75 72 72 65 6e | 74 2d 6c 6f 61 64 2d 6c | 'curren|t-load-l|
|00000230| 69 73 74 29 20 28 73 65 | 74 71 20 63 75 72 72 65 |ist) (se|tq curre|
|00000240| 6e 74 2d 6c 6f 61 64 2d | 6c 69 73 74 20 6e 69 6c |nt-load-|list nil|
|00000250| 29 29 0a 0a 0a 28 62 79 | 74 65 2d 63 6f 64 65 20 |))...(by|te-code |
|00000260| 22 c0 c1 21 88 c0 c2 21 | 88 c0 c3 21 87 22 20 5b |"..!...!|...!." [|
|00000270| 72 65 71 75 69 72 65 20 | 63 6c 20 77 69 64 67 65 |require |cl widge|
|00000280| 74 20 77 33 2d 6b 65 79 | 77 6f 72 64 5d 20 32 29 |t w3-key|word] 2)|
|00000290| 0a 23 40 34 34 20 4b 65 | 79 6d 61 70 20 75 73 65 |.#@44 Ke|ymap use|
|000002a0| 64 20 6f 76 65 72 20 67 | 6c 79 70 68 73 20 69 6e |d over g|lyphs in|
|000002b0| 20 61 6e 20 69 6d 61 67 | 65 20 77 69 64 67 65 74 | an imag|e widget|
|000002c0| 1f 0a 28 64 65 66 76 61 | 72 20 77 69 64 67 65 74 |..(defva|r widget|
|000002d0| 2d 69 6d 61 67 65 2d 6b | 65 79 6d 61 70 20 28 6d |-image-k|eymap (m|
|000002e0| 61 6b 65 2d 73 70 61 72 | 73 65 2d 6b 65 79 6d 61 |ake-spar|se-keyma|
|000002f0| 70 29 20 28 23 24 20 2e | 20 36 36 32 29 29 0a 28 |p) (#$ .| 662)).(|
|00000300| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 11 c1 5c 6e |byte-cod|e "...\n|
|00000310| 42 12 c0 13 c3 5c 6e 42 | 12 c0 14 c4 5c 6e 42 12 |B....\nB|....\nB.|
|00000320| c5 c6 c7 20 5c 22 ab 95 | c8 c9 21 ab 88 ca 11 cb |... \"..|..!.....|
|00000330| 13 cc 14 aa 8e cd 11 cd | 13 cd 14 aa 86 ce 11 cf |........|........|
|00000340| 13 d0 14 c0 87 22 20 5b | 6e 69 6c 20 77 69 64 67 |....." [|nil widg|
|00000350| 65 74 2d 6d 6f 75 73 65 | 2d 62 75 74 74 6f 6e 31 |et-mouse|-button1|
|00000360| 20 63 75 72 72 65 6e 74 | 2d 6c 6f 61 64 2d 6c 69 | current|-load-li|
|00000370| 73 74 20 77 69 64 67 65 | 74 2d 6d 6f 75 73 65 2d |st widge|t-mouse-|
|00000380| 62 75 74 74 6f 6e 32 20 | 77 69 64 67 65 74 2d 6d |button2 |widget-m|
|00000390| 6f 75 73 65 2d 62 75 74 | 74 6f 6e 33 20 73 74 72 |ouse-but|ton3 str|
|000003a0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 58 45 6d 61 63 |ing-matc|h "XEmac|
|000003b0| 73 22 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |s" emacs|-version|
|000003c0| 20 66 65 61 74 75 72 65 | 70 20 6d 6f 75 73 65 20 | feature|p mouse |
|000003d0| 62 75 74 74 6f 6e 31 20 | 62 75 74 74 6f 6e 32 20 |button1 |button2 |
|000003e0| 62 75 74 74 6f 6e 33 20 | 72 65 74 75 72 6e 20 6d |button3 |return m|
|000003f0| 6f 75 73 65 2d 31 20 6d | 6f 75 73 65 2d 32 20 6d |ouse-1 m|ouse-2 m|
|00000400| 6f 75 73 65 2d 33 5d 20 | 33 29 0a 23 40 34 33 20 |ouse-3] |3).#@43 |
|00000410| 2a 57 68 65 74 68 65 72 | 20 74 6f 20 6d 61 6b 65 |*Whether| to make|
|00000420| 20 69 6d 61 67 65 73 20 | 69 6e 61 75 64 69 62 6c | images |inaudibl|
|00000430| 65 20 6f 72 20 6e 6f 74 | 2e 1f 0a 28 64 65 66 76 |e or not|...(defv|
|00000440| 61 72 20 77 69 64 67 65 | 74 2d 69 6d 61 67 65 2d |ar widge|t-image-|
|00000450| 69 6e 61 75 64 69 62 6c | 65 2d 70 20 6e 69 6c 20 |inaudibl|e-p nil |
|00000460| 28 23 24 20 2e 20 2d 31 | 30 34 30 29 29 0a 28 62 |(#$ . -1|040)).(b|
|00000470| 79 74 65 2d 63 6f 64 65 | 20 22 c0 09 c2 0b 21 c4 |yte-code| "....!.|
|00000480| 23 88 c0 09 c2 0d 21 c4 | 23 88 c6 c7 c8 c9 ca cb |#.....!.|#.......|
|00000490| cc cd ce cf d0 d1 d2 d3 | d4 d5 d6 d7 d8 d9 da db |........|........|
|000004a0| dc dd 26 17 87 22 20 5b | 64 65 66 69 6e 65 2d 6b |..&.." [|define-k|
|000004b0| 65 79 20 77 69 64 67 65 | 74 2d 69 6d 61 67 65 2d |ey widge|t-image-|
|000004c0| 6b 65 79 6d 61 70 20 76 | 65 63 74 6f 72 20 77 69 |keymap v|ector wi|
|000004d0| 64 67 65 74 2d 6d 6f 75 | 73 65 2d 62 75 74 74 6f |dget-mou|se-butto|
|000004e0| 6e 31 20 77 69 64 67 65 | 74 2d 69 6d 61 67 65 2d |n1 widge|t-image-|
|000004f0| 62 75 74 74 6f 6e 2d 70 | 72 65 73 73 20 77 69 64 |button-p|ress wid|
|00000500| 67 65 74 2d 6d 6f 75 73 | 65 2d 62 75 74 74 6f 6e |get-mous|e-button|
|00000510| 32 20 64 65 66 69 6e 65 | 2d 77 69 64 67 65 74 20 |2 define|-widget |
|00000520| 69 6d 61 67 65 20 64 65 | 66 61 75 6c 74 20 22 41 |image de|fault "A|
|00000530| 20 66 61 69 72 6c 79 20 | 63 6f 6d 70 6c 65 78 20 | fairly |complex |
|00000540| 69 6d 61 67 65 20 77 69 | 64 67 65 74 2e 22 20 3a |image wi|dget." :|
|00000550| 63 6f 6e 76 65 72 74 2d | 77 69 64 67 65 74 20 77 |convert-|widget w|
|00000560| 69 64 67 65 74 2d 69 6d | 61 67 65 2d 63 6f 6e 76 |idget-im|age-conv|
|00000570| 65 72 74 20 3a 76 61 6c | 75 65 2d 74 6f 2d 69 6e |ert :val|ue-to-in|
|00000580| 74 65 72 6e 61 6c 20 23 | 5b 28 77 69 64 67 65 74 |ternal #|[(widget|
|00000590| 20 76 61 6c 75 65 29 20 | 22 08 87 22 20 5b 76 61 | value) |".." [va|
|000005a0| 6c 75 65 5d 20 31 5d 20 | 3a 76 61 6c 75 65 2d 74 |lue] 1] |:value-t|
|000005b0| 6f 2d 65 78 74 65 72 6e | 61 6c 20 23 5b 28 77 69 |o-extern|al #[(wi|
|000005c0| 64 67 65 74 20 76 61 6c | 75 65 29 20 22 08 87 22 |dget val|ue) ".."|
|000005d0| 20 5b 76 61 6c 75 65 5d | 20 31 5d 20 3a 76 61 6c | [value]| 1] :val|
|000005e0| 75 65 2d 73 65 74 20 77 | 69 64 67 65 74 2d 69 6d |ue-set w|idget-im|
|000005f0| 61 67 65 2d 76 61 6c 75 | 65 2d 73 65 74 20 3a 63 |age-valu|e-set :c|
|00000600| 72 65 61 74 65 20 77 69 | 64 67 65 74 2d 69 6d 61 |reate wi|dget-ima|
|00000610| 67 65 2d 63 72 65 61 74 | 65 20 3a 64 65 6c 65 74 |ge-creat|e :delet|
|00000620| 65 20 77 69 64 67 65 74 | 2d 69 6d 61 67 65 2d 64 |e widget|-image-d|
|00000630| 65 6c 65 74 65 20 3a 76 | 61 6c 75 65 2d 63 72 65 |elete :v|alue-cre|
|00000640| 61 74 65 20 77 69 64 67 | 65 74 2d 69 6d 61 67 65 |ate widg|et-image|
|00000650| 2d 76 61 6c 75 65 2d 63 | 72 65 61 74 65 20 3a 76 |-value-c|reate :v|
|00000660| 61 6c 75 65 2d 64 65 6c | 65 74 65 20 77 69 64 67 |alue-del|ete widg|
|00000670| 65 74 2d 69 6d 61 67 65 | 2d 76 61 6c 75 65 2d 64 |et-image|-value-d|
|00000680| 65 6c 65 74 65 20 3a 76 | 61 6c 75 65 2d 67 65 74 |elete :v|alue-get|
|00000690| 20 77 69 64 67 65 74 2d | 69 6d 61 67 65 2d 76 61 | widget-|image-va|
|000006a0| 6c 75 65 2d 67 65 74 20 | 3a 6e 6f 74 69 66 79 20 |lue-get |:notify |
|000006b0| 77 69 64 67 65 74 2d 69 | 6d 61 67 65 2d 6e 6f 74 |widget-i|mage-not|
|000006c0| 69 66 79 5d 20 32 34 29 | 0a 28 64 65 66 61 6c 69 |ify] 24)|.(defali|
|000006d0| 61 73 20 27 77 69 64 67 | 65 74 2d 69 6d 61 67 65 |as 'widg|et-image|
|000006e0| 2d 63 6f 6e 76 65 72 74 | 20 23 5b 28 77 69 64 67 |-convert| #[(widg|
|000006f0| 65 74 29 20 22 c0 09 c2 | 5c 22 1b c4 09 c2 c5 23 |et) "...|\".....#|
|00000700| 88 0b ab 90 c4 09 0b 40 | 0b 41 40 23 88 0b 41 41 |.......@|.A@#..AA|
|00000710| 89 13 ac 70 09 29 87 22 | 20 5b 77 69 64 67 65 74 |...p.)."| [widget|
|00000720| 2d 67 65 74 20 77 69 64 | 67 65 74 20 3a 61 72 67 |-get wid|get :arg|
|00000730| 73 20 61 72 67 73 20 77 | 69 64 67 65 74 2d 70 75 |s args w|idget-pu|
|00000740| 74 20 6e 69 6c 5d 20 35 | 5d 29 0a 28 64 65 66 61 |t nil] 5|]).(defa|
|00000750| 6c 69 61 73 20 27 77 69 | 64 67 65 74 2d 69 6d 61 |lias 'wi|dget-ima|
|00000760| 67 65 2d 76 61 6c 75 65 | 2d 67 65 74 20 23 5b 28 |ge-value|-get #[(|
|00000770| 77 69 64 67 65 74 29 20 | 22 c0 09 c2 5c 22 89 1b |widget) |"...\"..|
|00000780| 40 ad 85 c4 0b 40 c5 5c | 22 29 87 22 20 5b 77 69 |@....@.\|")." [wi|
|00000790| 64 67 65 74 2d 67 65 74 | 20 77 69 64 67 65 74 20 |dget-get| widget |
|000007a0| 3a 63 68 69 6c 64 72 65 | 6e 20 63 68 69 6c 64 72 |:childre|n childr|
|000007b0| 65 6e 20 77 69 64 67 65 | 74 2d 61 70 70 6c 79 20 |en widge|t-apply |
|000007c0| 3a 76 61 6c 75 65 2d 67 | 65 74 5d 20 34 5d 29 0a |:value-g|et] 4]).|
|000007d0| 28 64 65 66 61 6c 69 61 | 73 20 27 77 69 64 67 65 |(defalia|s 'widge|
|000007e0| 74 2d 69 6d 61 67 65 2d | 63 72 65 61 74 65 20 23 |t-image-|create #|
|000007f0| 5b 28 77 69 64 67 65 74 | 29 20 22 c0 09 c2 5c 22 |[(widget|) "...\"|
|00000800| 89 1a ac 88 c3 20 60 c4 | 93 12 aa 96 c5 5c 6e 21 |..... `.|.....\n!|
|00000810| ac 91 5c 6e a8 ab 88 c3 | 20 5c 6e c4 93 12 aa 85 |..\n....| \n.....|
|00000820| c6 c7 5c 6e 5c 22 88 c8 | 09 c2 5c 6e 23 88 29 c9 |..\n\"..|..\n#.).|
|00000830| 09 21 87 22 20 5b 77 69 | 64 67 65 74 2d 67 65 74 |.!." [wi|dget-get|
|00000840| 20 77 69 64 67 65 74 20 | 77 68 65 72 65 20 6d 61 | widget |where ma|
|00000850| 6b 65 2d 6d 61 72 6b 65 | 72 20 6e 69 6c 20 6d 61 |ke-marke|r nil ma|
|00000860| 72 6b 65 72 70 20 65 72 | 72 6f 72 20 22 49 4d 50 |rkerp er|ror "IMP|
|00000870| 4f 53 53 49 42 4c 45 20 | 70 6f 73 69 74 69 6f 6e |OSSIBLE |position|
|00000880| 20 69 6e 20 77 69 64 67 | 65 74 2d 69 6d 61 67 65 | in widg|et-image|
|00000890| 2d 63 72 65 61 74 65 3a | 20 25 73 22 20 77 69 64 |-create:| %s" wid|
|000008a0| 67 65 74 2d 70 75 74 20 | 77 69 64 67 65 74 2d 69 |get-put |widget-i|
|000008b0| 6d 61 67 65 2d 76 61 6c | 75 65 2d 63 72 65 61 74 |mage-val|ue-creat|
|000008c0| 65 5d 20 35 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 |e] 5]).(|defalias|
|000008d0| 20 27 77 69 64 67 65 74 | 2d 69 6d 61 67 65 2d 76 | 'widget|-image-v|
|000008e0| 61 6c 75 65 2d 73 65 74 | 20 23 5b 28 77 69 64 67 |alue-set| #[(widg|
|000008f0| 65 74 20 76 61 6c 75 65 | 29 20 22 8a c0 09 21 88 |et value|) "...!.|
|00000900| c2 0b 21 ab 88 c4 09 c5 | 0b 23 88 aa 86 c4 09 c6 |..!.....|.#......|
|00000910| 0b 23 88 c7 60 c8 09 c9 | 5c 22 88 60 ca 0e 0b 24 |.#..`...|\".`...$|
|00000920| 29 87 22 20 5b 77 69 64 | 67 65 74 2d 69 6d 61 67 |)." [wid|get-imag|
|00000930| 65 2d 64 65 6c 65 74 65 | 20 77 69 64 67 65 74 20 |e-delete| widget |
|00000940| 77 69 64 67 65 74 2d 67 | 6c 79 70 68 70 20 76 61 |widget-g|lyphp va|
|00000950| 6c 75 65 20 77 69 64 67 | 65 74 2d 70 75 74 20 67 |lue widg|et-put g|
|00000960| 6c 79 70 68 20 3a 76 61 | 6c 75 65 20 70 75 74 2d |lyph :va|lue put-|
|00000970| 74 65 78 74 2d 70 72 6f | 70 65 72 74 79 20 77 69 |text-pro|perty wi|
|00000980| 64 67 65 74 2d 61 70 70 | 6c 79 20 3a 63 72 65 61 |dget-app|ly :crea|
|00000990| 74 65 20 69 6e 61 75 64 | 69 62 6c 65 20 77 69 64 |te inaud|ible wid|
|000009a0| 67 65 74 2d 69 6d 61 67 | 65 2d 69 6e 61 75 64 69 |get-imag|e-inaudi|
|000009b0| 62 6c 65 2d 70 5d 20 35 | 5d 29 0a 28 64 65 66 61 |ble-p] 5|]).(defa|
|000009c0| 6c 69 61 73 20 27 77 69 | 64 67 65 74 2d 69 6d 61 |lias 'wi|dget-ima|
|000009d0| 67 65 2d 75 73 65 6d 61 | 70 20 23 5b 28 77 69 64 |ge-usema|p #[(wid|
|000009e0| 67 65 74 29 20 22 c0 09 | c2 5c 22 89 1a 3c ab 83 |get) "..|.\"..<..|
|000009f0| 5c 6e aa 94 5c 6e ab 8b | c3 c4 5c 6e 5c 22 ab 85 |\n..\n..|..\n\"..|
|00000a00| 5c 6e c5 c6 4f 12 c7 5c | 6e 0e 08 5c 22 a3 29 87 |\n..O..\|n..\".).|
|00000a10| 22 20 5b 77 69 64 67 65 | 74 2d 67 65 74 20 77 69 |" [widge|t-get wi|
|00000a20| 64 67 65 74 20 75 73 65 | 6d 61 70 20 73 74 72 69 |dget use|map stri|
|00000a30| 6e 67 2d 6d 61 74 63 68 | 20 22 5e 23 22 20 31 20 |ng-match| "^#" 1 |
|00000a40| 6e 69 6c 20 61 73 73 6f | 63 20 77 33 2d 69 6d 61 |nil asso|c w3-ima|
|00000a50| 67 65 6d 61 70 73 5d 20 | 34 5d 29 0a 28 62 79 74 |gemaps] |4]).(byt|
|00000a60| 65 2d 63 6f 64 65 20 22 | c0 c1 4e c2 73 ac 85 c3 |e-code "|..N.s...|
|00000a70| c4 c0 5c 22 88 c5 c0 c1 | c6 23 87 22 20 5b 77 69 |..\"....|.#." [wi|
|00000a80| 64 67 65 74 2d 69 6d 61 | 67 65 2d 75 73 65 6d 61 |dget-ima|ge-usema|
|00000a90| 70 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |p byte-o|ptimizer|
|00000aa0| 20 28 6e 69 6c 20 62 79 | 74 65 2d 63 6f 6d 70 69 | (nil by|te-compi|
|00000ab0| 6c 65 2d 69 6e 6c 69 6e | 65 2d 65 78 70 61 6e 64 |le-inlin|e-expand|
|00000ac0| 29 20 65 72 72 6f 72 20 | 22 25 73 20 61 6c 72 65 |) error |"%s alre|
|00000ad0| 61 64 79 20 68 61 73 20 | 61 20 62 79 74 65 2d 6f |ady has |a byte-o|
|00000ae0| 70 74 69 6d 69 7a 65 72 | 2c 20 63 61 6e 27 74 20 |ptimizer|, can't |
|00000af0| 6d 61 6b 65 20 69 74 20 | 69 6e 6c 69 6e 65 22 20 |make it |inline" |
|00000b00| 70 75 74 20 62 79 74 65 | 2d 63 6f 6d 70 69 6c 65 |put byte|-compile|
|00000b10| 2d 69 6e 6c 69 6e 65 2d | 65 78 70 61 6e 64 5d 20 |-inline-|expand] |
|00000b20| 34 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 69 |4).(defa|lias 'wi|
|00000b30| 64 67 65 74 2d 69 6d 61 | 67 65 2d 63 61 6c 6c 62 |dget-ima|ge-callb|
|00000b40| 61 63 6b 20 23 5b 28 77 | 69 64 67 65 74 20 77 69 |ack #[(w|idget wi|
|00000b50| 64 67 65 74 2d 69 67 6e | 6f 72 65 20 26 6f 70 74 |dget-ign|ore &opt|
|00000b60| 69 6f 6e 61 6c 20 65 76 | 65 6e 74 29 20 22 c0 09 |ional ev|ent) "..|
|00000b70| c2 5c 22 ad 8a c3 c0 09 | c2 5c 22 c0 09 c4 5c 22 |.\".....|.\"...\"|
|00000b80| 5c 22 87 22 20 5b 77 69 | 64 67 65 74 2d 67 65 74 |\"." [wi|dget-get|
|00000b90| 20 77 69 64 67 65 74 20 | 3a 68 72 65 66 20 77 33 | widget |:href w3|
|00000ba0| 2d 66 65 74 63 68 20 3a | 74 61 72 67 65 74 5d 20 |-fetch :|target] |
|00000bb0| 35 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 77 |5]).(def|alias 'w|
|00000bc0| 69 64 67 65 74 2d 69 6d | 61 67 65 2d 63 72 65 61 |idget-im|age-crea|
|00000bd0| 74 65 2d 73 75 62 77 69 | 64 67 65 74 20 27 28 6d |te-subwi|dget '(m|
|00000be0| 61 63 72 6f 20 2e 20 23 | 5b 28 26 72 65 73 74 20 |acro . #|[(&rest |
|00000bf0| 61 72 67 73 29 20 22 c0 | c1 5c 6e c3 5c 22 42 87 |args) ".|.\n.\"B.|
|00000c00| 22 20 5b 77 69 64 67 65 | 74 2d 63 72 65 61 74 65 |" [widge|t-create|
|00000c10| 20 61 70 70 65 6e 64 20 | 61 72 67 73 20 28 3a 70 | append |args (:p|
|00000c20| 61 72 65 6e 74 20 77 69 | 64 67 65 74 20 3a 68 65 |arent wi|dget :he|
|00000c30| 6c 70 2d 65 63 68 6f 20 | 27 77 69 64 67 65 74 2d |lp-echo |'widget-|
|00000c40| 69 6d 61 67 65 2d 73 75 | 6d 6d 61 72 69 7a 65 20 |image-su|mmarize |
|00000c50| 27 75 73 65 6d 61 70 20 | 28 77 69 64 67 65 74 2d |'usemap |(widget-|
|00000c60| 67 65 74 20 77 69 64 67 | 65 74 20 27 75 73 65 6d |get widg|et 'usem|
|00000c70| 61 70 29 20 3a 68 72 65 | 66 20 68 72 65 66 20 3a |ap) :hre|f href :|
|00000c80| 74 61 72 67 65 74 20 74 | 61 72 67 65 74 20 3a 73 |target t|arget :s|
|00000c90| 72 63 20 28 77 69 64 67 | 65 74 2d 67 65 74 20 77 |rc (widg|et-get w|
|00000ca0| 69 64 67 65 74 20 3a 73 | 72 63 29 20 27 69 73 6d |idget :s|rc) 'ism|
|00000cb0| 61 70 20 73 65 72 76 65 | 72 2d 6d 61 70 29 5d 20 |ap serve|r-map)] |
|00000cc0| 34 5d 29 29 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |4])).(de|falias '|
|00000cd0| 77 69 64 67 65 74 2d 69 | 6d 61 67 65 2d 76 61 6c |widget-i|mage-val|
|00000ce0| 75 65 2d 63 72 65 61 74 | 65 20 23 5b 28 77 69 64 |ue-creat|e #[(wid|
|00000cf0| 67 65 74 29 20 22 c0 09 | c2 5c 22 c0 09 c3 5c 22 |get) "..|.\"...\"|
|00000d00| c0 09 c4 5c 22 c0 09 c5 | 5c 22 09 19 c0 09 c6 5c |...\"...|\".....\|
|00000d10| 22 89 1e 06 3c ab 84 0e | 06 aa 99 0e 06 ab 8e c7 |"...<...|........|
|00000d20| c8 0e 06 5c 22 ab 87 0e | 06 c9 ca 4f 16 06 cb 0e |...\"...|...O....|
|00000d30| 06 0e 0c 5c 22 a3 2a c0 | 09 cd 5c 22 ae 81 60 c0 |...\".*.|..\"..`.|
|00000d40| 09 ce 5c 22 c0 09 cf 5c | 22 ca 89 1e 10 1e 11 1e |..\"...\|".......|
|00000d50| 0f 1e 0e 1e 0d 1e 12 1e | 13 1e 14 1e 15 1e 16 0e |........|........|
|00000d60| 15 ab 87 d7 0e 15 97 21 | 16 15 0e 0e ad 84 ca d8 |.......!|........|
|00000d70| d9 8f 16 10 0e 0e ab 85 | 0e 10 83 88 01 8a 0e 0f |........|........|
|00000d80| 47 da 55 ab 83 ca 16 0f | 0e 0d 62 88 0e 12 ab bd |G.U.....|..b.....|
|00000d90| ca 1e 1b dc dd 0e 12 5c | 22 1e 1e df e0 e1 e2 c0 |.......\|".......|
|00000da0| 09 e2 5c 22 ae 85 0e 0f | ae 81 e3 c4 0e 14 e4 e5 |..\"....|........|
|00000db0| e6 e7 e8 c0 09 e8 5c 22 | e9 ea eb c0 09 eb 5c 22 |......\"|......\"|
|00000dc0| ec 0e 1b ed 09 ee ef 0e | 1e 26 17 16 11 2a 82 7a |........|.&...*.z|
|00000dd0| 01 0e 13 ab bb 0e 16 3b | ab b6 e0 f0 e4 f1 e2 0e |.......;|........|
|00000de0| 0f c4 0e 14 e9 ea ec 0e | 16 eb c0 09 eb 5c 22 e8 |........|.....\".|
|00000df0| c0 09 e8 5c 22 ed 09 ee | ef c6 c0 09 c6 5c 22 c2 |...\"...|.....\".|
|00000e00| 0e 16 c3 0e 15 f2 c0 09 | f2 5c 22 c5 0e 13 26 1d |........|.\"...&.|
|00000e10| 16 11 aa ee 0e 16 ab b6 | e0 f0 e4 f1 e2 0e 0f ae |........|........|
|00000e20| 81 f3 c4 0e 14 ec 0e 16 | e9 ea eb c0 09 eb 5c 22 |........|......\"|
|00000e30| e8 f4 ed 09 ee ef c6 c0 | 09 c6 5c 22 c2 0e 16 c3 |........|..\"....|
|00000e40| 0e 15 f2 c0 09 f2 5c 22 | c5 0e 13 26 1d 16 11 aa |......\"|...&....|
|00000e50| b4 0e 0f ab b0 e0 f0 e4 | f1 e2 0e 0f c4 0e 14 f5 |........|........|
|00000e60| f6 e9 ea eb c0 09 eb 5c | 22 e8 f4 ed 09 ee ef c6 |.......\|".......|
|00000e70| c0 09 c6 5c 22 c2 0e 16 | c3 0e 15 f2 c0 09 f2 5c |...\"...|.......\|
|00000e80| 22 c5 0e 13 26 1d 16 11 | 0e 11 ad 87 f7 09 f8 0e |"...&...|........|
|00000e90| 11 43 23 29 aa ec c0 09 | f9 5c 22 ae 85 fa 0e 0d |.C#)....|.\".....|
|00000ea0| 89 5c 22 1e 39 fb 0e 39 | 0e 0d 89 23 88 f7 09 f9 |.\".9..9|...#....|
|00000eb0| 0e 39 23 88 f7 09 f8 ca | 23 88 fc 0e 39 fd 0e 3e |.9#.....|#...9..>|
|00000ec0| 23 88 fc 0e 39 ff 0e 0e | 23 88 fc 0e 39 81 40 00 |#...9...|#...9.@.|
|00000ed0| e7 23 88 fc 0e 39 81 41 | 00 0e 16 ab 93 0e 12 ac |.#...9.A|........|
|00000ee0| 84 0e 13 ab 8b 81 42 00 | 81 43 00 0e 16 5c 22 aa |......B.|.C...\".|
|00000ef0| 89 0e 16 ab 84 0e 16 aa | 81 ca 23 88 81 44 00 0e |........|..#..D..|
|00000f00| 0e c1 09 23 29 2e 5c 6e | 87 22 20 5b 77 69 64 67 |...#).\n|." [widg|
|00000f10| 65 74 2d 67 65 74 20 77 | 69 64 67 65 74 20 3a 68 |et-get w|idget :h|
|00000f20| 72 65 66 20 3a 74 61 72 | 67 65 74 20 3a 62 75 74 |ref :tar|get :but|
|00000f30| 74 6f 6e 2d 66 61 63 65 | 20 69 73 6d 61 70 20 75 |ton-face| ismap u|
|00000f40| 73 65 6d 61 70 20 73 74 | 72 69 6e 67 2d 6d 61 74 |semap st|ring-mat|
|00000f50| 63 68 20 22 5e 23 22 20 | 31 20 6e 69 6c 20 61 73 |ch "^#" |1 nil as|
|00000f60| 73 6f 63 20 77 33 2d 69 | 6d 61 67 65 6d 61 70 73 |soc w3-i|magemaps|
|00000f70| 20 77 68 65 72 65 20 67 | 6c 79 70 68 20 61 6c 74 | where g|lyph alt|
|00000f80| 20 69 6e 76 61 6c 69 64 | 2d 67 6c 79 70 68 20 72 | invalid|-glyph r|
|00000f90| 65 61 6c 2d 77 69 64 67 | 65 74 20 63 6c 69 65 6e |eal-widg|et clien|
|00000fa0| 74 2d 6d 61 70 20 73 65 | 72 76 65 72 2d 6d 61 70 |t-map se|rver-map|
|00000fb0| 20 66 61 63 65 20 74 61 | 72 67 65 74 20 68 72 65 | face ta|rget hre|
|00000fc0| 66 20 69 6e 74 65 72 6e | 20 28 62 79 74 65 2d 63 |f intern| (byte-c|
|00000fd0| 6f 64 65 20 22 c0 c1 5c | 6e 21 21 88 c3 87 22 20 |ode "..\|n!!..." |
|00000fe0| 5b 73 70 65 63 69 66 69 | 65 72 2d 69 6e 73 74 61 |[specifi|er-insta|
|00000ff0| 6e 63 65 20 67 6c 79 70 | 68 2d 69 6d 61 67 65 20 |nce glyp|h-image |
|00001000| 67 6c 79 70 68 20 6e 69 | 6c 5d 20 33 29 20 28 28 |glyph ni|l] 3) ((|
|00001010| 65 72 72 6f 72 20 74 29 | 29 20 30 20 64 65 66 61 |error t)|) 0 defa|
|00001020| 75 6c 74 20 6d 61 70 63 | 61 72 20 23 5b 28 78 29 |ult mapc|ar #[(x)|
|00001030| 20 22 08 c1 48 c2 61 ab | 84 08 c3 48 12 5c 6e ac | "..H.a.|...H.\n.|
|00001040| 8a 08 c3 48 3b ab 84 08 | c3 48 12 c4 c5 c6 c7 c8 |...H;...|.H......|
|00001050| c9 ca cb 08 cc 48 ae 83 | 08 c3 48 cd 08 c3 48 af |.....H..|..H...H.|
|00001060| 0b 87 22 20 5b 78 20 30 | 20 64 65 66 61 75 6c 74 |.." [x 0| default|
|00001070| 20 32 20 63 68 6f 69 63 | 65 2d 69 74 65 6d 20 3a | 2 choic|e-item :|
|00001080| 74 61 62 2d 6f 72 64 65 | 72 20 2d 31 20 3a 64 65 |tab-orde|r -1 :de|
|00001090| 6c 65 74 65 20 77 69 64 | 67 65 74 2d 64 65 66 61 |lete wid|get-defa|
|000010a0| 75 6c 74 2d 64 65 6c 65 | 74 65 20 3a 66 6f 72 6d |ult-dele|te :form|
|000010b0| 61 74 20 22 25 5b 25 74 | 25 5d 22 20 3a 74 61 67 |at "%[%t|%]" :tag|
|000010c0| 20 33 20 3a 76 61 6c 75 | 65 5d 20 31 32 5d 20 6f | 3 :valu|e] 12] o|
|000010d0| 70 74 69 6f 6e 73 20 61 | 70 70 6c 79 20 77 69 64 |ptions a|pply wid|
|000010e0| 67 65 74 2d 63 72 65 61 | 74 65 20 6d 65 6e 75 2d |get-crea|te menu-|
|000010f0| 63 68 6f 69 63 65 20 3a | 74 61 67 20 22 49 6d 61 |choice :|tag "Ima|
|00001100| 67 65 6d 61 70 22 20 3a | 66 6f 72 6d 61 74 20 22 |gemap" :|format "|
|00001110| 25 5b 25 74 3a 25 76 25 | 5d 22 20 3a 69 67 6e 6f |%[%t:%v%|]" :igno|
|00001120| 72 65 2d 63 61 73 65 20 | 74 20 3a 6e 6f 74 69 66 |re-case |t :notif|
|00001130| 79 20 3a 64 65 6c 65 74 | 65 20 77 69 64 67 65 74 |y :delet|e widget|
|00001140| 2d 64 65 66 61 75 6c 74 | 2d 64 65 6c 65 74 65 20 |-default|-delete |
|00001150| 3a 61 63 74 69 6f 6e 20 | 3a 76 61 6c 75 65 20 3a |:action |:value :|
|00001160| 70 61 72 65 6e 74 20 3a | 68 65 6c 70 2d 65 63 68 |parent :|help-ech|
|00001170| 6f 20 77 69 64 67 65 74 | 2d 69 6d 61 67 65 2d 73 |o widget|-image-s|
|00001180| 75 6d 6d 61 72 69 7a 65 | 20 69 74 65 6d 20 22 25 |ummarize| item "%|
|00001190| 5b 25 74 25 5d 22 20 3a | 73 72 63 20 22 49 6d 61 |[%t%]" :|src "Ima|
|000011a0| 67 65 22 20 77 69 64 67 | 65 74 2d 69 6d 61 67 65 |ge" widg|et-image|
|000011b0| 2d 63 61 6c 6c 62 61 63 | 6b 20 3a 74 61 62 2d 6f |-callbac|k :tab-o|
|000011c0| 72 64 65 72 20 2d 31 20 | 77 69 64 67 65 74 2d 70 |rder -1 |widget-p|
|000011d0| 75 74 20 3a 63 68 69 6c | 64 72 65 6e 20 65 78 74 |ut :chil|dren ext|
|000011e0| 65 6e 74 20 6d 61 6b 65 | 2d 65 78 74 65 6e 74 20 |ent make|-extent |
|000011f0| 73 65 74 2d 65 78 74 65 | 6e 74 2d 65 6e 64 70 6f |set-exte|nt-endpo|
|00001200| 69 6e 74 73 20 73 65 74 | 2d 65 78 74 65 6e 74 2d |ints set|-extent-|
|00001210| 70 72 6f 70 65 72 74 79 | 20 6b 65 79 6d 61 70 20 |property| keymap |
|00001220| 77 69 64 67 65 74 2d 69 | 6d 61 67 65 2d 6b 65 79 |widget-i|mage-key|
|00001230| 6d 61 70 20 62 65 67 69 | 6e 2d 67 6c 79 70 68 20 |map begi|n-glyph |
|00001240| 64 65 74 61 63 68 61 62 | 6c 65 20 68 65 6c 70 2d |detachab|le help-|
|00001250| 65 63 68 6f 20 66 6f 72 | 6d 61 74 20 22 25 73 20 |echo for|mat "%s |
|00001260| 5b 6d 61 70 5d 22 20 73 | 65 74 2d 67 6c 79 70 68 |[map]" s|et-glyph|
|00001270| 2d 70 72 6f 70 65 72 74 | 79 5d 20 33 30 5d 29 0a |-propert|y] 30]).|
|00001280| 28 64 65 66 61 6c 69 61 | 73 20 27 77 69 64 67 65 |(defalia|s 'widge|
|00001290| 74 2d 69 6d 61 67 65 2d | 64 65 6c 65 74 65 20 23 |t-image-|delete #|
|000012a0| 5b 28 77 69 64 67 65 74 | 29 20 22 c0 09 c2 5c 22 |[(widget|) "...\"|
|000012b0| c0 09 c3 5c 22 40 1c 89 | 1a ab 85 c5 5c 6e 21 aa |...\"@..|....\n!.|
|000012c0| 8a 0c ab 86 c6 0c c7 5c | 22 aa 81 c8 2a 87 22 20 |.......\|"...*." |
|000012d0| 5b 77 69 64 67 65 74 2d | 67 65 74 20 77 69 64 67 |[widget-|get widg|
|000012e0| 65 74 20 65 78 74 65 6e | 74 20 3a 63 68 69 6c 64 |et exten|t :child|
|000012f0| 72 65 6e 20 63 68 69 6c | 64 20 64 65 6c 65 74 65 |ren chil|d delete|
|00001300| 2d 65 78 74 65 6e 74 20 | 77 69 64 67 65 74 2d 61 |-extent |widget-a|
|00001310| 70 70 6c 79 20 3a 64 65 | 6c 65 74 65 20 6e 69 6c |pply :de|lete nil|
|00001320| 5d 20 35 5d 29 0a 28 62 | 79 74 65 2d 63 6f 64 65 |] 5]).(b|yte-code|
|00001330| 20 22 c0 c1 21 ab 86 c2 | c1 4d 88 aa 84 c2 c3 4d | "..!...|.M.....M|
|00001340| 88 c0 c4 21 ab 86 c5 c4 | 4d 88 aa 84 c5 c3 4d 88 |...!....|M.....M.|
|00001350| c0 87 22 20 5b 66 62 6f | 75 6e 64 70 20 6d 6f 75 |.." [fbo|undp mou|
|00001360| 73 65 2d 65 76 65 6e 74 | 2d 70 20 77 69 64 67 65 |se-event|-p widge|
|00001370| 74 2d 6d 6f 75 73 65 2d | 65 76 65 6e 74 2d 70 20 |t-mouse-|event-p |
|00001380| 69 67 6e 6f 72 65 20 67 | 6c 79 70 68 70 20 77 69 |ignore g|lyphp wi|
|00001390| 64 67 65 74 2d 67 6c 79 | 70 68 70 5d 20 32 29 0a |dget-gly|php] 2).|
|000013a0| 28 64 65 66 61 6c 69 61 | 73 20 27 77 69 64 67 65 |(defalia|s 'widge|
|000013b0| 74 2d 69 6d 61 67 65 2d | 62 75 74 74 6f 6e 2d 70 |t-image-|button-p|
|000013c0| 72 65 73 73 20 23 5b 28 | 65 76 65 6e 74 29 20 22 |ress #[(|event) "|
|000013d0| 08 ad 88 c1 08 21 ad 83 | c2 08 21 89 1b ad 84 c4 |.....!..|..!.....|
|000013e0| 0b c5 5c 22 1d c6 0d 89 | 08 23 2a 87 22 20 5b 65 |..\"....|.#*." [e|
|000013f0| 76 65 6e 74 20 77 69 64 | 67 65 74 2d 6d 6f 75 73 |vent wid|get-mous|
|00001400| 65 2d 65 76 65 6e 74 2d | 70 20 65 76 65 6e 74 2d |e-event-|p event-|
|00001410| 67 6c 79 70 68 20 67 6c | 79 70 68 20 67 6c 79 70 |glyph gl|yph glyp|
|00001420| 68 2d 70 72 6f 70 65 72 | 74 79 20 77 69 64 67 65 |h-proper|ty widge|
|00001430| 74 20 77 69 64 67 65 74 | 2d 69 6d 61 67 65 2d 6e |t widget|-image-n|
|00001440| 6f 74 69 66 79 5d 20 35 | 20 6e 69 6c 20 22 40 65 |otify] 5| nil "@e|
|00001450| 22 5d 29 0a 28 64 65 66 | 61 6c 69 61 73 20 27 77 |"]).(def|alias 'w|
|00001460| 69 64 67 65 74 2d 69 6d | 61 67 65 2d 75 73 65 6d |idget-im|age-usem|
|00001470| 61 70 2d 64 65 66 61 75 | 6c 74 20 23 5b 28 75 73 |ap-defau|lt #[(us|
|00001480| 65 6d 61 70 29 20 22 08 | ad 82 08 40 19 08 ab 93 |emap) ".|...@....|
|00001490| 08 40 c2 48 c3 6b ab 85 | 08 40 11 c4 10 08 41 89 |.@.H.k..|.@....A.|
|000014a0| 10 ac 6d 09 29 87 22 20 | 5b 75 73 65 6d 61 70 20 |..m.)." |[usemap |
|000014b0| 72 76 61 6c 20 30 20 22 | 64 65 66 61 75 6c 74 22 |rval 0 "|default"|
|000014c0| 20 6e 69 6c 5d 20 33 5d | 29 0a 28 64 65 66 61 6c | nil] 3]|).(defal|
|000014d0| 69 61 73 20 27 77 69 64 | 67 65 74 2d 69 6d 61 67 |ias 'wid|get-imag|
|000014e0| 65 2d 73 75 6d 6d 61 72 | 69 7a 65 20 23 5b 28 77 |e-summar|ize #[(w|
|000014f0| 69 64 67 65 74 29 20 22 | c0 09 c2 5c 22 ab 85 c0 |idget) "|...\"...|
|00001500| 09 c2 5c 22 11 c0 09 c3 | 5c 22 1b 09 19 c0 09 c4 |..\"....|\"......|
|00001510| 5c 22 89 1c 3c ab 83 0c | aa 94 0c ab 8b c5 c6 0c |\"..<...|........|
|00001520| 5c 22 ab 85 0c c7 c8 4f | 14 c9 0c 0e 5c 6e 5c 22 |\".....O|....\n\"|
|00001530| a3 2a 1c c0 09 cb 5c 22 | 1e 0c c0 09 cd 5c 22 1e |.*....\"|.....\".|
|00001540| 0d ce 09 21 1e 0f 0c ab | 8b d0 0c 21 14 d1 d2 0e |...!....|...!....|
|00001550| 0f 5c 22 aa af 0b ab 87 | d1 d3 0e 0c 5c 22 aa a5 |.\".....|....\"..|
|00001560| 0e 0c 3b ab 87 d1 d4 0e | 0c 5c 22 aa 99 0e 0d 3b |..;.....|.\"....;|
|00001570| ab 87 d1 d5 0e 0d 5c 22 | aa 8d 0e 0f 3b ab 87 d1 |......\"|....;...|
|00001580| d5 0e 0f 5c 22 aa 81 d6 | 2d 87 22 20 5b 77 69 64 |...\"...|-." [wid|
|00001590| 67 65 74 2d 67 65 74 20 | 77 69 64 67 65 74 20 3a |get-get |widget :|
|000015a0| 70 61 72 65 6e 74 20 69 | 73 6d 61 70 20 75 73 65 |parent i|smap use|
|000015b0| 6d 61 70 20 73 74 72 69 | 6e 67 2d 6d 61 74 63 68 |map stri|ng-match|
|000015c0| 20 22 5e 23 22 20 31 20 | 6e 69 6c 20 61 73 73 6f | "^#" 1 |nil asso|
|000015d0| 63 20 77 33 2d 69 6d 61 | 67 65 6d 61 70 73 20 3a |c w3-ima|gemaps :|
|000015e0| 68 72 65 66 20 68 72 65 | 66 20 61 6c 74 20 77 69 |href hre|f alt wi|
|000015f0| 64 67 65 74 2d 76 61 6c | 75 65 20 76 61 6c 75 65 |dget-val|ue value|
|00001600| 20 77 69 64 67 65 74 2d | 69 6d 61 67 65 2d 75 73 | widget-|image-us|
|00001610| 65 6d 61 70 2d 64 65 66 | 61 75 6c 74 20 66 6f 72 |emap-def|ault for|
|00001620| 6d 61 74 20 22 43 6c 69 | 65 6e 74 20 73 69 64 65 |mat "Cli|ent side|
|00001630| 20 69 6d 61 67 65 6d 61 | 70 3a 20 25 73 22 20 22 | imagema|p: %s" "|
|00001640| 53 65 72 76 65 72 20 73 | 69 64 65 20 69 6d 61 67 |Server s|ide imag|
|00001650| 65 6d 61 70 3a 20 25 73 | 22 20 22 49 6d 61 67 65 |emap: %s|" "Image|
|00001660| 20 68 79 70 65 72 6c 69 | 6e 6b 3a 20 25 73 22 20 | hyperli|nk: %s" |
|00001670| 22 49 6d 61 67 65 3a 20 | 25 73 22 20 22 41 20 76 |"Image: |%s" "A v|
|00001680| 65 72 79 20 63 6f 6e 66 | 75 73 65 64 20 69 6d 61 |ery conf|used ima|
|00001690| 67 65 20 77 69 64 67 65 | 74 2e 22 5d 20 34 5d 29 |ge widge|t."] 4])|
|000016a0| 0a 23 40 32 33 30 20 2a | 57 68 65 74 68 65 72 20 |.#@230 *|Whether |
|000016b0| 74 6f 20 61 75 74 6f 6d | 61 74 69 63 61 6c 6c 79 |to autom|atically|
|000016c0| 20 72 65 74 72 69 65 76 | 65 20 74 68 65 20 73 6f | retriev|e the so|
|000016d0| 75 72 63 65 20 6f 66 20 | 61 6e 20 69 6d 61 67 65 |urce of |an image|
|000016e0| 20 77 69 64 67 65 74 0a | 69 66 20 69 74 20 69 73 | widget.|if it is|
|000016f0| 20 6e 6f 74 20 61 6e 20 | 61 63 74 69 76 65 20 68 | not an |active h|
|00001700| 79 70 65 72 6c 69 6e 6b | 20 6f 72 20 69 6d 61 67 |yperlink| or imag|
|00001710| 65 6d 61 70 2e 0a 49 66 | 20 60 6e 69 6c 27 2c 20 |emap..If| `nil', |
|00001720| 64 6f 6e 27 74 20 64 6f | 20 61 6e 79 74 68 69 6e |don't do| anythin|
|00001730| 67 2e 0a 49 66 20 60 74 | 27 2c 20 61 75 74 6f 6d |g..If `t|', autom|
|00001740| 61 74 69 63 61 6c 6c 79 | 20 72 65 74 72 69 65 76 |atically| retriev|
|00001750| 65 20 74 68 65 20 73 6f | 75 72 63 65 2e 0a 41 6e |e the so|urce..An|
|00001760| 79 20 6f 74 68 65 72 20 | 76 61 6c 75 65 20 6d 65 |y other |value me|
|00001770| 61 6e 73 20 61 73 6b 20 | 74 68 65 20 75 73 65 72 |ans ask |the user|
|00001780| 20 65 61 63 68 20 74 69 | 6d 65 2e 1f 0a 28 64 65 | each ti|me...(de|
|00001790| 66 76 61 72 20 77 69 64 | 67 65 74 2d 69 6d 61 67 |fvar wid|get-imag|
|000017a0| 65 2d 61 75 74 6f 2d 72 | 65 74 72 69 65 76 65 20 |e-auto-r|etrieve |
|000017b0| 27 61 73 6b 20 28 23 24 | 20 2e 20 2d 35 37 39 39 |'ask (#$| . -5799|
|000017c0| 29 29 0a 28 64 65 66 61 | 6c 69 61 73 20 27 77 69 |)).(defa|lias 'wi|
|000017d0| 64 67 65 74 2d 69 6d 61 | 67 65 2d 6e 6f 74 69 66 |dget-ima|ge-notif|
|000017e0| 79 20 23 5b 28 77 69 64 | 67 65 74 20 77 69 64 67 |y #[(wid|get widg|
|000017f0| 65 74 2d 63 68 61 6e 67 | 65 64 20 26 6f 70 74 69 |et-chang|ed &opti|
|00001800| 6f 6e 61 6c 20 65 76 65 | 6e 74 29 20 22 08 ad 88 |onal eve|nt) "...|
|00001810| c1 08 21 ad 83 c2 08 21 | 89 1b ad 83 c4 08 21 1d |..!....!|......!.|
|00001820| 0b ad 83 c6 08 21 1e 07 | c8 0e 09 ca 5c 22 1e 5c |.....!..|....\".\|
|00001830| 6e 0e 09 1e 09 c8 0e 09 | cb 5c 22 89 1e 0b 3c ab |n.......|.\"...<.|
|00001840| 84 0e 0b aa 99 0e 0b ab | 8e cc cd 0e 0b 5c 22 ab |........|.....\".|
|00001850| 87 0e 0b ce cf 4f 16 0b | d0 0e 0b 0e 11 5c 22 a3 |.....O..|.....\".|
|00001860| 2a 1e 0b c8 0e 09 d2 5c | 22 1e 13 c8 0e 09 d4 5c |*......\|"......\|
|00001870| 22 ae 89 0e 15 ad 85 c8 | 0e 15 d4 5c 22 1e 16 c8 |".......|...\"...|
|00001880| 0e 09 d7 5c 22 89 1e 18 | ab 87 d9 0e 18 97 21 16 |...\"...|......!.|
|00001890| 18 0b ab a6 0e 0b ab a2 | da db 0d 0e 07 5c 22 0e |........|.....\".|
|000018a0| 0b cf 23 89 16 13 3b ab | 89 dc 0e 13 0e 18 5c 22 |..#...;.|......\"|
|000018b0| 82 36 01 dd de 0d 0e 07 | 23 82 36 01 0b ab 99 0d |.6......|#.6.....|
|000018c0| ab 96 0e 07 ab 92 0e 5c | 6e ab 8e dc df e0 0e 13 |.......\|n.......|
|000018d0| 0d 0e 07 24 0e 18 5c 22 | aa f6 0e 0b ab ac e1 e2 |...$..\"|........|
|000018e0| 0e 0b 5c 22 cf e3 1e 24 | 1e 25 1e 26 e7 e8 0e 26 |..\"...$|.%.&...&|
|000018f0| cf e3 24 16 25 d0 0e 25 | 0e 26 5c 22 a3 89 16 25 |..$.%..%|.&\"...%|
|00001900| 3b ad 86 dc 0e 25 0e 18 | 5c 22 2b aa c6 0e 5c 6e |;....%..|\"+...\n|
|00001910| ab 8a dc 0e 13 e9 50 0e | 18 5c 22 aa b8 0e 13 3b |......P.|.\"....;|
|00001920| ab 88 dc 0e 13 0e 18 5c | 22 aa ab 0e 16 3b ab a5 |.......\|"....;..|
|00001930| 0e 2a ac 83 cf aa 9f 0e | 2a e3 61 ab 86 dc 0e 16 |.*......|*.a.....|
|00001940| 21 aa 93 0e 2b df ec ed | 0e 16 21 5c 22 21 ad 87 |!...+...|..!\"!..|
|00001950| dc 0e 16 21 aa 81 cf 2e | 08 87 22 20 5b 65 76 65 |...!....|.." [eve|
|00001960| 6e 74 20 77 69 64 67 65 | 74 2d 6d 6f 75 73 65 2d |nt widge|t-mouse-|
|00001970| 65 76 65 6e 74 2d 70 20 | 65 76 65 6e 74 2d 67 6c |event-p |event-gl|
|00001980| 79 70 68 20 67 6c 79 70 | 68 20 65 76 65 6e 74 2d |yph glyp|h event-|
|00001990| 67 6c 79 70 68 2d 78 2d | 70 69 78 65 6c 20 78 20 |glyph-x-|pixel x |
|000019a0| 65 76 65 6e 74 2d 67 6c | 79 70 68 2d 79 2d 70 69 |event-gl|yph-y-pi|
|000019b0| 78 65 6c 20 79 20 77 69 | 64 67 65 74 2d 67 65 74 |xel y wi|dget-get|
|000019c0| 20 77 69 64 67 65 74 20 | 69 73 6d 61 70 20 75 73 | widget |ismap us|
|000019d0| 65 6d 61 70 20 73 74 72 | 69 6e 67 2d 6d 61 74 63 |emap str|ing-matc|
|000019e0| 68 20 22 5e 23 22 20 31 | 20 6e 69 6c 20 61 73 73 |h "^#" 1| nil ass|
|000019f0| 6f 63 20 77 33 2d 69 6d | 61 67 65 6d 61 70 73 20 |oc w3-im|agemaps |
|00001a00| 3a 68 72 65 66 20 68 72 | 65 66 20 3a 73 72 63 20 |:href hr|ef :src |
|00001a10| 77 69 64 67 65 74 2d 63 | 68 61 6e 67 65 64 20 69 |widget-c|hanged i|
|00001a20| 6d 67 2d 73 72 63 20 3a | 74 61 72 67 65 74 20 74 |mg-src :|target t|
|00001a30| 61 72 67 65 74 20 69 6e | 74 65 72 6e 20 77 33 2d |arget in|tern w3-|
|00001a40| 70 6f 69 6e 74 2d 69 6e | 2d 6d 61 70 20 76 65 63 |point-in|-map vec|
|00001a50| 74 6f 72 20 77 33 2d 66 | 65 74 63 68 20 6d 65 73 |tor w3-f|etch mes|
|00001a60| 73 61 67 65 20 22 4e 6f | 20 64 65 73 74 69 6e 61 |sage "No| destina|
|00001a70| 74 69 6f 6e 20 66 6f 75 | 6e 64 20 66 6f 72 20 25 |tion fou|nd for %|
|00001a80| 64 2c 25 64 22 20 66 6f | 72 6d 61 74 20 22 25 73 |d,%d" fo|rmat "%s|
|00001a90| 3f 25 64 2c 25 64 22 20 | 6d 61 70 63 61 72 20 23 |?%d,%d" |mapcar #|
|00001aa0| 5b 28 65 6e 74 72 79 29 | 20 22 08 c1 48 ae 83 08 |[(entry)| "..H...|
|00001ab0| c2 48 08 c2 48 42 87 22 | 20 5b 65 6e 74 72 79 20 |.H..HB."| [entry |
|00001ac0| 33 20 32 5d 20 33 5d 20 | 74 20 63 61 73 65 2d 66 |3 2] 3] |t case-f|
|00001ad0| 6f 6c 64 2d 73 65 61 72 | 63 68 20 63 68 6f 69 63 |old-sear|ch choic|
|00001ae0| 65 20 63 68 6f 69 63 65 | 73 20 63 6f 6d 70 6c 65 |e choice|s comple|
|00001af0| 74 69 6e 67 2d 72 65 61 | 64 20 22 49 6d 61 67 65 |ting-rea|d "Image|
|00001b00| 6d 61 70 3a 20 22 20 22 | 3f 30 2c 30 22 20 77 69 |map: " "|?0,0" wi|
|00001b10| 64 67 65 74 2d 69 6d 61 | 67 65 2d 61 75 74 6f 2d |dget-ima|ge-auto-|
|00001b20| 72 65 74 72 69 65 76 65 | 20 75 72 6c 2d 63 6f 6e |retrieve| url-con|
|00001b30| 66 69 72 6d 61 74 69 6f | 6e 2d 66 75 6e 63 20 22 |firmatio|n-func "|
|00001b40| 52 65 74 72 69 65 76 65 | 20 69 6d 61 67 65 20 28 |Retrieve| image (|
|00001b50| 25 73 29 3f 22 20 75 72 | 6c 2d 74 72 75 6e 63 61 |%s)?" ur|l-trunca|
|00001b60| 74 65 2d 75 72 6c 2d 66 | 6f 72 2d 76 69 65 77 69 |te-url-f|or-viewi|
|00001b70| 6e 67 5d 20 37 5d 29 0a | 28 70 72 6f 76 69 64 65 |ng] 7]).|(provide|
|00001b80| 20 27 77 33 2d 77 69 64 | 67 65 74 29 0a          | 'w3-wid|get).   |
+--------+-------------------------+-------------------------+--------+--------+